home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / demo.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-19  |  613 b   |  37 lines
  1. ' shows all 4096 colours simultaneously from HiSoft BASIC
  2.  
  3. ' this uses HAM mode which is difficult to explain and even
  4. ' harder to use!
  5.  
  6. REM $EVENT OFF
  7. SCREEN 1,320,200,6,0,&h800
  8. WINDOW 1,"HiSoft BASIC HAM Mode Demo",(20,20)-(280,170),,1
  9. DEFINT a-z
  10.  
  11. x=0:y=0:c=0
  12. r=0:g=0:b=0
  13. DO
  14.     PSET (x,y),0
  15.     PSET (x+1,y),r+&b010000
  16.     PSET (x+2,y),g+&b100000
  17.     PSET (x+3,y),b+&b110000
  18.     LINE -STEP(3,0),b+&b110000
  19.     x=x+8
  20.     INCR r
  21.     IF r=16 THEN
  22.         r=0: INCR g
  23.         IF g=16 THEN
  24.             g=0: INCR b
  25.             IF b=16 THEN EXIT LOOP
  26.         END IF
  27.     END IF
  28.     IF x>=256 THEN x=0:INCR y
  29. LOOP
  30.  
  31. LOCATE 18,1
  32. PRINT "Press a key or click";
  33. REM $EVENT ON
  34. SLEEP
  35. SYSTEM
  36.  
  37.